function [result] = read1(input,dim1)
    result(dim1)=0.0;
    for h=1:dim1
        result(h)=input((h-1)+1);
    end
end